home *** CD-ROM | disk | FTP | other *** search
/ InterCD 2001 May / may_2001.iso / intercd / root / Multimedia / Image / ^iShell / setup.exe / Main / DefaultProgressBar.k < prev    next >
Encoding:
Text File  |  2001-03-26  |  2.0 KB  |  95 lines
  1. module oDefaulProgressBarPlugin is cPlugin
  2. has
  3.     release Editor:
  4.         GetIO()
  5.             do
  6.                 result := oIODefaultProgressBarPlugin;
  7.             end;
  8.     end;
  9. with
  10.     Media is [
  11.         oHorizontalBlackProgressBar,
  12.         oVerticalBlackProgressBar,
  13.         oHorizontalGrayProgressBar,
  14.         oVerticalGrayProgressBar
  15.     ];
  16. end;
  17.  
  18. object oHorizontalBlackProgressBar
  19. is
  20.     cCacheProgressBar
  21. with
  22.     Identifier is "oHorizontalBlackProgressBar";
  23.     CellCount is 3;
  24.     CellWidth is 640;
  25.     CellHeight is 10;
  26.     Direction is Horizontal;
  27.     StartSlot is 4;
  28.     StartBar is 4;
  29.     StopBar is 636;
  30.     StopSlot is 636;
  31.     URL is "./BLACKHPB.PIC";
  32. end;
  33.  
  34. object oVerticalBlackProgressBar
  35. is
  36.     cCacheProgressBar
  37. with
  38.     Identifier is "oVerticalBlackProgressBar";
  39.     CellCount is 3;
  40.     CellWidth is 10;
  41.     CellHeight is 640;
  42.     Direction is Vertical;
  43.     StartSlot is 4;
  44.     StartBar is 4;
  45.     StopBar is 636;
  46.     StopSlot is 636;
  47.     URL is "./BLACKVPB.PIC";
  48. end;
  49.  
  50. object oHorizontalGrayProgressBar
  51. is
  52.     cCacheProgressBar
  53. with
  54.     Identifier is "oHorizontalGrayProgressBar";
  55.     CellCount is 3;
  56.     CellWidth is 640;
  57.     CellHeight is 20;
  58.     Direction is Horizontal;
  59.     StartSlot is 4;
  60.     StartBar is 4;
  61.     StopBar is 636;
  62.     StopSlot is 636;
  63.     URL is "./GRAYHPB.PIC";
  64. end;
  65.  
  66. object oVerticalGrayProgressBar
  67. is
  68.     cCacheProgressBar
  69. with
  70.     Identifier is "oVerticalGrayProgressBar";
  71.     CellCount is 3;
  72.     CellWidth is 20;
  73.     CellHeight is 640;
  74.     Direction is Vertical;
  75.     StartSlot is 4;
  76.     StartBar is 4;
  77.     StopBar is 636;
  78.     StopSlot is 636;
  79.     URL is "./GRAYVPB.PIC";
  80. end;
  81.  
  82. release Editor:
  83.  
  84. object oIODefaultProgressBarPlugin is cIOPlugin
  85. with
  86.     MenuItems is [
  87.         cIOCacheProgressBarMenuItem with Name is "Horizontal Black"; Value is oHorizontalBlackProgressBar; end,
  88.         cIOCacheProgressBarMenuItem with Name is "Vertical Black"; Value is oVerticalBlackProgressBar; end,
  89.         cIOCacheProgressBarMenuItem with Name is "Horizontal Gray"; Value is oHorizontalGrayProgressBar; end,
  90.         cIOCacheProgressBarMenuItem with Name is "Vertical Gray"; Value is oVerticalGrayProgressBar; end
  91.     ];
  92. end;
  93.  
  94. end; -- release Editor
  95.